home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-04_1990_-_de_Side_A.d64 / [u] transfere (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  52 lines
  1. 0 poke53280,0:poke53281,0:print"[147][154]";
  2. 1 print"[196]ieser [212]ransfere-[194]efehl kann an belie-
  3. 2 [153]"biger (NULL)telle im (NULL)amspeicher stehen.
  4. 3 print"[197]r ist vielseitig und universelle ein-
  5. 4 [153]"setzbar und vermag die gesamten
  6. 5 print"84 (in [215]orten:[214]ierundachtsig !)
  7. 6 [153]"(NULL)peekyte (NULL)peicher des len64 beliebig zu
  8. 7 print"verschieben.
  9. 8 [153]"str$ie atnnwendung lautet:
  10. 9 print"sys [216],[211],[197],[218],[208]1
  11. 10 [153]"(NULL) = (NULL)peicheradresse der (NULL)len-(NULL)outine
  12. 11 print"[211] = [211]tartadresse der [214]erschiebung
  13. 12 [153]"val = valndadresse der (NULL)erschiebung
  14. 13 print"[218] = [218]ieladresse der [214]erschiebung
  15. 14 [153]"(NULL)1= (NULL)ert von (NULL)peicheradresse 1
  16. 15 print"    55 = [210]om
  17. 16 [153]"    54 = (NULL)om / peekasic (NULL)am
  18. 17 print"    53 = [210]om / [194]asic [210]am / [203]ernal [210]am
  19. 18 [153]"    52 = atnlles (NULL)am
  20. 19 print"    usw. ([211]iehe [204]iteratur)
  21. 20 [153]"z.peek. sys (NULL),1024,2023,40960,54
  22. 21 data32,253,174,32,138,173,32,247,183,132,251,133,252,32,253,174,32,138,173
  23. 22 data32,247,183,140,60,3,141,61,3,32,253,174,32,138,173,32,247,183,132,253
  24. 23 data133,254,32,253,174,32,158,183,173,32,208,133,2,120,134,1,160,0,177,251
  25. 24 data145,253,141,24,212,141,32,208,165,252,205,61,3,208,23,165,251,205,60,3
  26. 25 data208,16,169,55,133,1,88,169,0,141,24,212,165,2,141,32,208,96,230,251,230
  27. 26 data253,165,251,208,2,230,252,165,253,208,202,230,254,160,0,152,240,195
  28. 27 print"     legt den [194]ildschirm im [210]am unter
  29. 28 [153]"     dem peekasicrom ab.
  30. 29 geta$:ifa$=""then29
  31. 30 print"[147][194]itte die [211]tartadresse fuer die
  32. 31 [153]"(NULL)aschinenroutine angeben.
  33. 32 print"(zwischen 4000  und 40800) oder
  34. 35 [153]"(zwischen 49152 und 53000)
  35. 36 sa=0:input"[211]tartadresse";sa
  36. 37 ifsa<4000then36
  37. 38 ifsa>40800andsa<49152then36
  38. 39 ifsa>53000then36
  39. 40 fort=0to117:readq:pokesa+t,q:next:ea=sa+117
  40. 41 y1=int(sa/256):x1=sa-(y1*256)
  41. 42 y2=int(ea/256):x2=ea-(y2*256)
  42. 43 n$="":input"[211]peicherfilename";n$
  43. 44 ifn$=""then43
  44. 45 sys57812n$,8
  45. 46 poke193,x1:poke194,y1
  46. 47 poke174,x2:poke175,y2
  47. 48 sys62954
  48. 49 print"[204]age der [212]rans-[210]outine:"sa"-"ea"
  49. 50 [153]"(NULL)aden mit ',8,1'
  50. 51 print"[198]unktion: sys"sa",[211],[197],[218],[208]1
  51. 52 [153]"(len) 1989 (NULL)aurien (NULL)oftware len(NULL)
  52.